My meme


This meme was inspired by me as I don’t often go out, and its originality is showcased by the colour used in the text section and the idea of linking each dog on the leash to an activity.


meme


library(magick)

# top half of meme

beginning_text <- image_blank(width = 450, 
                              height = 100,
                              color = "#ffffff") %>%
  # first line 
  
  image_annotate(text = "Friend: Hey, wanna hang out?",
                 color = "black",
                 size = 15,
                 font = "Comic Sans",
                 gravity = "northwest") %>%
  
  #second line 
  
  image_annotate(text = "Me: No sorry, I have plans",
                 color = "black", 
                 size = 15,
                 font = "Comic Sans",
                 gravity = "west") %>%
  
  # third line 
  
  image_annotate(text = "My plans:",
                 color = "black",
                 size = 15,
                 font = "Comic Sans",
                 gravity = "southwest")

# bottom half of meme

picture <- image_read("unnamed.jpg") %>%
  image_scale(450) %>%
  
  # first dog
  
  image_annotate(text = "reading",
                 color = "black",
                 size = 10,
                 font = "Comic Sans",
                 gravity = "southwest",
                 location = "+40+35") %>%
  
  # second dog
  
  image_annotate(text = "eating",
                 color = "black",
                 size = 10,
                 font = "Comic Sans",
                 gravity = "southwest",
                 location = "+75+50") %>%
  
  # third dog
  
  image_annotate(text = "watching Gilmore Girls",
                 color = "black",
                 size = 10,
                 font = "Comic Sans",
                 gravity = "southwest",
                 location = "+75+80") %>%
    
  # fourth dog
  
  image_annotate(text = "drinking tea",
                 color = "black",
                 size = 10,
                 font = "Comic Sans",
                 gravity = "center",
                 location = "+25+85") %>%
  
  # fifth dog
  
  image_annotate(text = "listening to music",
                 color = "black",
                 size = 10,
                 font = "Comic Sans",
                 gravity = "southeast",
                 location = "+70+50") %>%
  
  # sixth dog
  
  image_annotate(text = "journalling",
                 color = "black",
                 size = 10,
                 font = "Comic Sans",
                 gravity = "southeast",
                 location = "+45+15")

# creating a vector for the meme
                                
meme_vector <- c(beginning_text, picture)

# putting the meme together

meme <- image_append(meme_vector, stack = TRUE)

# saving the final meme as a .png image

image_write(meme, "my_meme.png")


My animated GIF


This gif uses a series of frames from a video I took of a moving puppet scene in Melbourne, and its originality comes from the fact that there is only a handful of people who would have this video content.


gif


library(magick)

# creating each frame, where the text gradually shows 

frame1 <- image_read("gif1.jpg") %>%
  image_border("pink", "10x10") %>%
  image_annotate(text = "top", 
                 color = "black",
                 boxcolor = "pink",
                 size = 60,
                 gravity = "north",
                 location = "+50+50") 

frame2 <- image_read("gif2.jpg") %>%
  image_border("pink", "10x10") %>%
  image_annotate(text = "top of",
                 color = "black",
                 boxcolor = "pink",
                 size = 60,
                 gravity = "north",
                 location = "+50+50")

frame3 <- image_read("gif3.jpg") %>%
  image_border("pink", "10x10") %>%
  image_annotate(text = "top of the",
                 color = "black",
                 boxcolor = "pink",
                 size = 60,
                 gravity = "north",
                 location = "+50+50")

frame4 <- image_read("gif4.jpg") %>%
  image_border("pink", "10x10") %>%
  image_annotate(text = "top of the morning",
                 color = "black",
                 boxcolor = "pink",
                 size = 60,
                 gravity = "north",
                 location = "+50+50")

frame5 <- image_read("gif5.jpg") %>%
  image_border("pink", "10x10") %>%
  image_annotate(text = "top of the morning to",
                 color = "black",
                 boxcolor = "pink",
                 size = 60,
                 gravity = "north",
                 location = "+50+50")

frame6 <- image_read("gif6.jpg") %>%
  image_border("pink", "10x10") %>%
  image_annotate(text = "top of the morning to ya",
                 color = "black",
                 boxcolor = "pink",
                 size = 60,
                 gravity = "north",
                 location = "+50+50")

frame7 <- image_read("gif7.jpg") %>%
  image_border("pink", "10x10") %>%
  image_annotate(text = "top of the morning to ya",
                 color = "black",
                 boxcolor = "pink",
                 size = 60,
                 gravity = "north",
                 location = "+50+50")

frame8 <- image_read("gif8.jpg") %>%
  image_border("pink", "10x10") %>%
  image_annotate(text = "top of the morning to ya",
                 color = "black",
                 boxcolor = "pink",
                 size = 60,
                 gravity = "north",
                 location = "+50+50")

frame9 <- image_read("gif9.jpg") %>%
  image_border("pink", "10x10") %>%
  image_annotate(text = "top of the morning to ya",
                 color = "black",
                 boxcolor = "pink",
                 size = 60,
                 gravity = "north",
                 location = "+50+50")

frame10 <- image_read("gif10.jpg") %>%
  image_border("pink", "10x10") %>%
  image_annotate(text = "top of the morning to ya",
                 color = "black",
                 boxcolor = "pink",
                 size = 60,
                 gravity = "north",
                 location = "+50+50")

# putting the frames in order using a vector

frames <- c(frame1, frame2, frame3, frame4, frame5, frame6, frame7, frame8, frame9, frame10)

# creating the gif

animation <-image_animate(frames, fps = 5)

# saving the gif as an image file

image_write(animation, "my_animation.gif")



body {background-color: #CEC2EB}

@import url('https://fonts.googleapis.com/css2?family=Handlee&display=swap');
p {font-family: 'Handlee', cursive; color: #000000; font-size: 150%}



@import url('https://fonts.googleapis.com/css2?family=Henny+Penny&display=swap');
h2 {font-family: 'Henny Penny', cursive; color: #000000; font-weight: bold; font-size: 400%}